home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / dbms_mag / 9102 / olympia1.feb < prev   
Text File  |  1990-12-07  |  604b  |  29 lines
  1.  
  2. Listing 1
  3.  
  4.  
  5. *-- Find the current video mode
  6. startmode = -1
  7. CALL spparams WITH startmode
  8. startmode = spreturnn        && ctns current video mode
  9.  
  10. *-- Now set the video mode to EGA
  11. mode = 16    && EGA
  12. CALL spparams WITH mode
  13. CALL spcall WITH "SWSETVMODE"
  14.  
  15. *-- Display the picture
  16. pictfile = "Pict2.pcx"
  17. CALL spparams WITH pictfile
  18. CALL spcall WITH "SWPOPSLIDE()"  && this is it
  19.  
  20. *-- Delay for 4 seconds
  21. delay = 4*18
  22. CALL spparams WITH delay
  23. CALL spcall WITH "SWDELAY"
  24.  
  25. *-- Reset the video mode to what it was before
  26. CALL spparams WITH startmode
  27. CALL spcall WITH "SWSETVMODE"
  28.  
  29.